﻿Imports BL.BL
Imports BE.BE


Public Class frmCambiarIdioma

#Region "Atributos"


    Dim usr As Usuario_BE


#End Region


#Region "Métodos"


    Private Sub frmCambiarIdioma_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'combo idiomas dispobles.
        Me.cbIdiomas.Items.Add("castellano")
        Me.cbIdiomas.Items.Add("english")
        Me.cbIdiomas.DropDownStyle = ComboBoxStyle.DropDownList
        'seleccionamos le idioma del usuario logueado.
        'usr = Usuario_BL.traerUsuario(frmPrincipal.nickensesion.ToString)
        usr = Usuario_BL.traerUsuario(frmPrincipal.usr.nick.ToString)
        Me.cbIdiomas.SelectedIndex = usr.ididioma
        'patentes del usuario logueado.
        Helper_FL.setearPermisos(frmPrincipal.usr, Me)
    End Sub


    Private Sub CambiarIdioma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCambiarIdioma.Click

        If Me.cbIdiomas.SelectedIndex <> usr.ididioma Then
            usr.ididioma = Me.cbIdiomas.SelectedIndex
            Usuario_BL.modificar(usr)
            MessageBox.Show("Los cambios de Idioma se mostrarán luego de que vuelva a ingresar al sistema..")
            'grabar en bitácora.
            Dim tmov As New TipoMovimiento_BE
            tmov.mDescripcion = "Usuario cambió de Idioma.."
            tmov.mCriticidad = 0
            Bitacora_BL.grabarEnBitacora(usr, tmov)
            Me.Close()
            Me.Dispose()
        Else
            MessageBox.Show("Ha elegido el Idioma que tenía configurado..")
        End If

    End Sub


    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Close()
        Me.Dispose()
    End Sub


#End Region


#Region "Métodos auxiliares"

    Private Sub frmCambiarIdioma_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F1 Then
            Help.ShowHelp(Me, Application.StartupPath & "\ayuda_SEAS.chm", "cambiaridioma.htm")
        End If
    End Sub


#End Region


End Class